#!/usr/bin/perl

use LWP::Simple qw(get); #LibrerÃ­a web
use URI::Escape; #CodificaciÃ³n en URI

my $artista = uri_escape( shift );
my $url = "http://www.discogs.com/artist/$artista?f=xml;api_key=4f4f6afb76";

my $resultado = get($url); #hay que estar registrado en la web para obtener la API key

my ($nombre) = ( $resultado =~ m{<realname>([\d\-\.]+)</realname>\s}gs );

print "El nombre real de $artista es: $nombre\n";
